home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1986 August / 64er_Magazin_86-08_1986_Markt__Technik_de_Side_A.d64 / listing 1 (c64) (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  273b  |  13 lines
  1. 5 rem ------- trans 0(64hires) -
  2. 10 data 0,0,15,0,15,9,7,5,13,0,9
  3. 20 dim x(6),y(6)
  4. 30 for i=1 to 5 : read x(i),y(i) : next
  5. 40 x(6)=x(1) : y(6)=y(1)
  6. 50 poke 53280,0 : sys37498 : hfl,6,12
  7. 60 rem start
  8. 70 for i=1 to 5
  9. 80 lin,x(i),y(i),x(i+1),y(i+1)
  10. 90 next
  11. 100 get a$ : if a$="" then 100
  12. 110 hof
  13.